home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
smrtnppe.zip
/
SMARTNET.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-05-14
|
4KB
|
277 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
;------------------------------------------------------------------------------
STRING003 = PPEPath() + "node.lst"
STRING006 = PPEPath() + "HLPSMRTN"
STRING007 = PPEPath() + "SMRTMENU"
GetUser
PrintLn
PrintLn "@X1E┌──────────────────────────────────────────────────────────────────────┐@X07"
PrintLn "@X1E│ SMARTNET NODE DISPLAY │@X07"
PrintLn "@X1E│ │@X07"
PrintLn "@X1E│ @X1FUse this Command to search the current Smartnet node list & download @X1E│@X07"
PrintLn "@X1E│ @X1Fthe latest Smartnet Node List package@X1E │@X07"
PrintLn "@X1E└──────────────────────────────────────────────────────────────────────┘@X07"
PrintLn
Wait
Cls
:LABEL001
DispFile STRING007, ""
Newline
STRING002 = ""
INTEGER008 = 0
InputText "@X0E(@X0C@TIMELEFT@@X0E min. left@X0E) SMARTNET Node List Command", STRING002, "@X0E", 1
Newline
STRING002 = Upper(STRING002)
If (STRING002 == "L") Gosub LABEL002
If (STRING002 == "A") Gosub LABEL004
If (STRING002 == "S") Gosub LABEL006
If (STRING002 == "T") Gosub LABEL008
If (STRING002 == "D") Goto LABEL010
If (STRING002 == "H") Gosub LABEL011
If (STRING002 == "Q") Stop
If (STRING002 == "G") Goodbye
Goto LABEL001
:LABEL002
Cls
FOpen 1, STRING003, 0, 0
Log "User displayed Smartnet Node List in Smartnet.PPE", 0
Gosub LABEL012
INTEGER006 = 2
INTEGER001 = 1
INTEGER005 = 2
INTEGER003 = U_PageLen
:LABEL003
Gosub LABEL015
If (INTEGER008) Goto LABEL013
Gosub LABEL014
Goto LABEL003
:LABEL004
STRING001 = ""
InputText "@X0EEnter Area Code to Find", STRING001, 14, 3
If (STRING001 == "") Return
FOpen 1, STRING003, 0, 0
Log "User searched " + STRING001 + " in Smartnet.PPE", 0
Cls
Gosub LABEL012
INTEGER006 = 2
INTEGER001 = 1
INTEGER005 = 2
INTEGER003 = U_PageLen
:LABEL005
Gosub LABEL015
If (INTEGER008) Goto LABEL013
If (Mid(STRING002, 3, 3) == STRING001) Then
Gosub LABEL014
Gosub LABEL015
If (INTEGER008) Goto LABEL013
Gosub LABEL014
Gosub LABEL015
If (INTEGER008) Goto LABEL013
Gosub LABEL014
Endif
Goto LABEL005
:LABEL006
STRING001 = ""
InputText "@X0EEnter State to Find", STRING001, 14, 2
If (STRING001 == "") Return
STRING001 = Upper(STRING001)
FOpen 1, STRING003, 0, 0
Log "User searched " + STRING001 + " in Smartnet.PPE", 0
Cls
Gosub LABEL012
INTEGER006 = 2
INTEGER001 = 1
INTEGER005 = 2
INTEGER003 = U_PageLen
:LABEL007
Gosub LABEL015
If (INTEGER008) Goto LABEL013
STRING004 = STRING002
Gosub LABEL015
If (INTEGER008) Goto LABEL013
INTEGER004 = InStr(STRING002, ",") + 2
STRING005 = STRING002
Gosub LABEL015
If (INTEGER008) Goto LABEL013
STRING008 = STRING002
If (Mid(STRING005, INTEGER004, 2) == STRING001) Then
STRING002 = STRING004
Gosub LABEL014
If (INTEGER002 || Abort()) Goto LABEL013
STRING002 = STRING005
Gosub LABEL014
If (INTEGER002 || Abort()) Goto LABEL013
STRING002 = STRING008
Gosub LABEL014
If (INTEGER002 || Abort()) Goto LABEL013
Endif
Goto LABEL007
:LABEL008
STRING001 = ""
InputText "@X0EEnter Text to Find", STRING001, 14, 20
If (STRING001 == "") Return
STRING001 = Upper(STRING001)
FOpen 1, STRING003, 0, 0
Log "User searched the Smartnet.PPE file for " + STRING001, 0
Cls
Gosub LABEL012
INTEGER006 = 2
INTEGER001 = 1
INTEGER005 = 2
INTEGER003 = U_PageLen
:LABEL009
Gosub LABEL015
If (INTEGER008) Goto LABEL013
STRING004 = STRING002
Gosub LABEL015
If (INTEGER008) Goto LABEL013
STRING005 = STRING002
Gosub LABEL015
If (INTEGER008) Goto LABEL013
STRING008 = STRING002
If (InStr(Upper(STRING004), Upper(STRING001)) || InStr(Upper(STRING005), Upper(STRING001))) Then
STRING002 = STRING004
Gosub LABEL014
If (INTEGER002 || Abort()) Goto LABEL013
STRING002 = STRING005
Gosub LABEL014
If (INTEGER002 || Abort()) Goto LABEL013
STRING002 = STRING008
Gosub LABEL014
If (INTEGER002 || Abort()) Goto LABEL013
Endif
Goto LABEL009
:LABEL010
KbdStuff "DB" + Chr(13) + "SMRT0493.ZIP" + Chr(13)
Log "User flagged latest Smartnet List to download from Smartnet.PPE", 0
End
:LABEL011
DispFile STRING006, ""
Log "User accessed Help file from Smartnet.PPE", 0
Return
:LABEL012
For INTEGER007 = 1 To 11
FGet 1, STRING009
Next
PrintLn "@X0E Phone @X0B BBS/ City & State/Province @X0A Sysop/ Node ID"
PrintLn "@X0C══════════════════════════════════════════════════════════════════════════════"
Return
:LABEL013
FClose 1
PrintLn "@X0CEnd of list..."
Wait
STRING002 = ""
Return
:LABEL014
PrintLn "@X0B", STRING002
INTEGER001 = INTEGER001 + 1
INTEGER006 = INTEGER006 + 1
Return
:LABEL015
FGet 1, STRING002
INTEGER002 = Ferr(1)
If (INTEGER002 || Abort()) INTEGER008 = 1
STRING009 = STRING002
If (Trim(STRING009, " ") == "") INTEGER008 = 1
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 5 Cls
; 2 Wait
; 27 Goto
; 49 Let
; 12 PrintLn
; 33 If
; 2 DispFile
; 4 FOpen
; 1 FClose
; 2 FGet
; 1 GetUser
; 6 Log
; 29 Gosub
; 8 Return
; 2 Newline
; 1 Stop
; 4 InputText
; 1 KbdStuff
; 1 Goodbye
;
;
; ■ Functions used :
;
; 15 +
; 14 ==
; 1 <
; 1 <=
; 2 >=
; 4 !
; 2 &&
; 9 ||
; 7 Upper()
; 2 Mid()
; 1 Ferr()
; 2 Chr()
; 3 InStr()
; 7 Abort()
; 1 Trim()
; 3 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------